10 ON-(PEEK(24576)=173ANDPEEK(25000)=76)GOTO220
20 C=7:X=42:POKE53272,23:PRINTCHR$(147):POKE53280,11:POKE53281,12
30 FOR I=55296 TO 55296+39:POKE I,C:NEXT
40 FOR I=55336 TO 56216 STEP 40:POKE I,C:NEXT
50 FOR I=55375 TO 56255 STEP 40:POKE I,C:NEXT
60 FOR I=56256 TO 56256+39:POKE I,C:NEXT
70 FOR I=1024 TO 1063:POKE I,X:NEXT
80 FOR I=1063 TO 2023 STEP 40:POKE I,X:NEXT
90 FOR I=2023 TO 1984 STEP-1:POKE I,X:NEXT
100 FOR I=1984 TO 1024 STEP-40:POKE I,X:NEXT
110 PRINTTAB(91)"[144][204][207][193][196][211][212][193][210][160][208][210][197][211][197][206][212][211]"
120 PRINTTAB(91)"[213][204][212][210][193] [198][201][204][197]-[214][201][197][215][197][210]"
130 PRINTTAB(58)"BY"
140 PRINTTAB(53)"[210].[215]. [194]OB [203]OBER"
150 PRINTTAB(90)"([195]) [195]OPYRIGHT  1987"
160 PRINTTAB(86)"[204][207][193][196][211][212][193][210] IS [206][207][212] [208]UBLIC [196]OMAIN"
170 PRINTTAB(83)"[208]LEASE RESPECT THE AUTHOR'S RIGHTS"
180 PRINTTAB(89)" [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [211][212][193][210][212] "
190 GETA$:IFA$=""THEN190
200 PRINT"[145]"TAB(10)" [204]OADING [205][204] [210]OUTINES  "
210 LOAD"FILE VIEWER.ML",8,1
220 MD=24576:SP=25856:GP=25918:OC=25992:CC=25995:CR=26230:WW=26357:RP=26394
230 POKE53280,.:POKE53281,.:POKE788,52:DIMA$(112):PRINTCHR$(142):SO=26721:EZ=26812
240 S=1:A=0
250 PRINT"[147][158]":K=7:A$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":GOSUB310
260 K=8:A$="[221]    ULTRA SEQ-PRINT    [221]":GOSUB310
270 K=9:A$="[221]      VERSION 5.6      [221]":GOSUB310
280 K=10:A$="[221]     R.W. BOB KOBER    [221]":GOSUB310
290 K=11:A$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":GOSUB310
300 GOTO460
310 M=LEN(A$):FORI=1TOM/2:PRINT"":FORJ=1TOK:PRINT"";:NEXT
320 PRINTSPC(20-I)LEFT$(A$,I)RIGHT$(A$,I):NEXT
330 RETURN
450 POKE150,160:SYSGP:POKE198,.:WAIT198,1:POKE198,.
460 POKE53280,.:POKE53281,.
470 SYSCC:POKE53272,21:PRINT"[147]"TAB(8)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
480 PRINTTAB(8)"[221]      MAIN MENU      [221]"
490 PRINTTAB(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
500 FORI=1TO300:NEXT:POKE2,5:POKE878,20:SYSOC
510 IFBOBTHENPOKE150,168:SYSGP:GOTO700
520 PRINTTAB(43)"USE <<-- EMBEDDED (CR) -->> IGNORE"
530 PRINTTAB(2)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
540 PRINTTAB(3)"[158][169]  [223][146][150]                         [158][129][169]  [223][155][146]"
550 PRINTTAB(3)"[158] F1 [146][150]  SEND OUTPUT TO SCREEN  [129] F2 [146]"
560 PRINTTAB(3)"[158][223]  [146][169][150]                        [158] [129][223]  [146][169]"
570 PRINTTAB(42)"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
580 PRINTTAB(3)"[149][169]  [223][146]                         [156][169]  [223]"
590 PRINTTAB(3)"[149] F3 [146]  [154]40 COLUMNS TO PRINTER  [156] F4 [146]"
600 PRINTTAB(3)"[149][223]  [146][169]                         [156][223]  [146][169]"
610 PRINTTAB(42)"[153][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
620 PRINTTAB(3)"[152][169]  [223][146]                         [150][169]  [223]"
630 PRINTTAB(3) "[152] F5 [146] [153] 80 COLUMNS TO PRINTER  [150] F6 [146]"
640 PRINTTAB(3)"[152][223]  [146][169]                         [150][223]  [146][169]"
650 PRINTTAB(42)"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
660 PRINTTAB(3)"[169]  [223][146]                         [169]  [223]"
670 PRINTTAB(3) " F7 [146][156] DISK HOUSEKEEPING  [129]QUIT  F8 [146]"
680 PRINTTAB(3)"[223]  [146][169]                         [223]  [146][169]"
690 IFBO=0THENBOB=1:POKE150,168:SYSSP
700 POKE198,.:CLOSE15:OPEN15,8,15:GOTO2490
710 GETA$:ON-(A$="A")GOTO1200:ON-(A$="S")GOTO2480:IFA$<"[133]"ORA$>CHR$(141)THEN710
720 F$=RIGHT$(STR$(ASC(A$)-132),1)
730 ON(ASC(A$)-132)GOTO740,760,780,1500,750,770,790,1440,2460:GOTO710
740 GOSUB960:GOSUB800:GOTO920
750 F$="2":GOTO740
760 F$="3":POKE600,0:GOSUB970:GOSUB800:ONCOLGOTO910,2130
770 F$="4":POKE600,1:GOSUB970:GOSUB800:ONCOLGOTO910,2130
780 F$="5":GOSUB980:GOSUB800:GOTO910
790 F$="6":GOSUB980:GOSUB800:GOTO910
800 PRINT"":POKE214,X-2:PRINT:PRINT"[152]  ($=DIRECTORY M=MENU)[145][145]"
810 POKE19,32:PRINT"[158]  ENTER SEQ FILENAME :";:GOSUB60500:FF$=B$
820 IFFF$="M"THEN510
830 IFFF$<>"$"THENSYSCC:X1=34:RETURN
840 CLOSE15:OPEN15,8,15:IFFF$="$"THENPRINT#15,"I":INPUT#15,E,E$:IFETHENPRINT"[147]":GOSUB1400
850 IFETHEN470
860 SYSCC:PRINTCHR$(142):SYSMD:PRINT:CLOSE15:OPEN15,8,15:SYSCC
870 IFPEEK(598)=34THEN470
880 X1=0:FF$=""
890 FF=PEEK(580+X1):IFFF=34THENRETURN
900 FF$=FF$+CHR$(FF):X1=X1+1:GOTO890
910 OPEN4,4,7:GOSUB1330:IFQQTHEN470
920 OPEN2,8,2,FF$:GOSUB1390:ON-(E<>0)GOTO470:GOSUB1050
930 CLOSE2:CLOSE4:SYS65511:OPEN15,8,15:X1=0
940 GOSUB1020:POKE214,23:PRINT:PRINT"        [150] [208]RESS F5 FOR THE [205]ENU [146]        [145]"
950 GETA$:ON-(A$<>CHR$(135))GOTO950:GOTO470
960 FORX=6TO8:POKE781,X:SYS59903:NEXT:RETURN
970 FORX=11TO13:POKE781,X:SYS59903:NEXT:GOSUB990:RETURN
980 FORX=16TO18:POKE781,X:SYS59903:NEXT:RETURN
990 POKE214,11:PRINT:PRINTTAB(6)"1[146] OR [154]2[146] COLUMNS?"
1000 GETCOL$:IFCOL$<"1"ORCOL$>"2"THEN1000
1010 COL=VAL(COL$):RETURN
1020 ON-(S=0)GOTO2530:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
1030 POKE54276,23:FORY=1TO3:F2=8:POKE54273,2:FORX=1TO5:POKE54287,F2:F2=F2*1.4
1040 NEXT:NEXT:FORW=1TO8:POKE54287,F2:F2=F2*1.07:NEXT:POKE54278,15:RETURN
1050 RP$="[208][210][201][206][212][197][210]":IFF$="1"ORF$="2"THENRP$="[210][197][193][196][197][210] "
1060 SYSCC:PRINTCHR$(14):PRINT"[147]"TAB(2)"[144]***********************************"
1070 PRINTTAB(2)"*    [198]"F$" [213][204][212][210][193][160][211][197][209]-[198][201][204][197][160]"RP$"    *"
1080 PRINTTAB(2)"***********************************"
1090 POKE214,23:PRINT:PRINT"[200]OLD SHIFT TO PAUSE - [208]RESS F6 TO ABORT[145][145]"
1100 FORI=1TO300:NEXT:POKE2,12:POKE878,20:SYSOC
1110 POKE214,23:PRINT:PRINT"[150][200]OLD SHIFT TO PAUSE - [158][208]RESS F6 TO ABORT[145][145]"
1120 ONVAL(F$)GOTO1130,1140,1150,1160,1170,1180
1130 SYSRP,40,0,0:X1=0:RETURN
1140 SYSRP,39,1,0:X1=0:RETURN
1150 GOSUB1190:SYSRP,40,0,1:X1=0:RETURN
1160 GOSUB1190:SYSRP,39,1,1:X1=0:RETURN
1170 GOSUB1190:SYSRP,80,0,1:XI=0:RETURN
1180 GOSUB1190:SYSRP,79,1,1:XI=0:RETURN
1190 FORI=1TO5:PRINT#4:NEXT:RETURN
1200 A=1-A:POKE820,A
1210 GOTO2510
1220 POKE198,.:WAIT198,1:FORX=11TO13:POKE781,X:SYS59903:NEXT:PRINT"[145][145][145][145]":GOTO460
1230 ON-(S=0)GOTO2530:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
1240 POKE54276,21:POKE54287,40:FORZ=1TOT:FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1
1250 FORF1=0TO255STEP50:POKE54273,F1:NEXTF1:NEXTZ:FORF2=15TO0STEP-.1
1260 POKE54296,F2:NEXT:POKE54277,128:POKE54278,250:RETURN
1270 ON-(S=0)GOTO2530:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
1280 POKE54277,8:POKE54278,255:POKE54276,23
1290 FORZ=1TO1:F1=10:FORY=1TO6:F2=30:POKE54273,F1:FORX=1TO3:POKE54287,F2
1300 F2=F2/1.2:NEXTX:F1=F1*1.5:NEXTY:FORW=1TO30:POKE54273,F1
1310 POKE54287,5:FORV=1TO5:NEXTV
1320 F1=F1/1.5:NEXTW:NEXTZ:POKE54278,15:RETURN
1330 CLOSE4:IFST=0THENOPEN4,4,7:QQ=0:RETURN
1340 PRINT"[150]      THE PRINTER IS NOT ON LINE"
1350 PRINT"     TURN IT ON, AND PRESS ANY KEY"
1360 PRINT"        PRESS F5 FOR THE MENU":GOSUB1270
1370 WAIT198,1:GETA$:IFA$="[135]"THENQQ=1:RETURN
1380 OPEN4,4,7:GOTO1330
1390 INPUT#15,E,E$:IFE=0THENRETURN
1400 PRINT"[147]         DISK ERROR ENCOUNTERED"
1410 PRINTTAB(20-LEN(E$)/2)E$:GOSUB1270
1420 PRINT"          ANY KEY TO CONTINUE"
1430 WAIT198,1:CLOSE2:CLOSE4:RETURN
1440 K=21:A$=" [158]     ARE YOU SURE?     ":GOSUB310
1450 WAIT198,1:GETA$:ON-(A$="Y")GOTO1470:PRINT"[145][145][145]"
1460 GOTO510
1470 PRINT"[150]";:PRINTTAB(8)" USE ULTRA AGAIN, SOON "
1480 POKE198,.:T=3:GOSUB1230
1490 CLOSE15:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
1495 IFER%<>63 THEN END
1497 LOAD"HELLO CONNECT",8
1500 FF=0
1510 PRINT"[155]":POKE214,8:PRINT
1520 PRINTTAB(6)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1530 PRINTTAB(6)"[221]                         [221]"
1540 PRINTTAB(6)"[221] DISK HOUSE KEEPING MENU [221]"
1550 PRINTTAB(6)"[221] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [221]"
1560 PRINTTAB(6)"[221]                         [221]"
1570 PRINTTAB(6)"[221] 1. SCRATCH A FILE       [221]"
1580 PRINTTAB(6)"[221] 2. RE-NAME A FILE       [221]"
1590 PRINTTAB(6)"[221] 3. FORMAT (NEW) A DISK  [221]"
1600 PRINTTAB(6)"[221] 4. VIEW DIRECTORY       [221]"
1610 PRINTTAB(6)"[221] 5. RETURN TO MAIN MENU  [221]"
1620 PRINTTAB(6)"[221]                         [221]"
1630 PRINTTAB(6)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1640 POKE198,.:WAIT198,1:GETA$:ON-(A$="[135]")GOTO510:IFA$<"1"ORA$>"5"THEN1640
1650 K=VAL(A$)
1660 ONKGOTO1680,1930,2060,2570,510
1670 POKE512,32:RETURN
1680 PRINT"[147][129]":POKE53280,.:POKE53281,.
1690 PRINTTAB(40)"                                        ";
1700 PRINT"    THIS ROUTINE WILL SCRATCH A FILE    ";
1710 PRINT"                                        "
1720 PRINTTAB(42)"PRESS RETURN TO EXIT"
1730 PRINTTAB(42)"ENTER '$' TO LIST THE FILE DIRECTORY."
1740 PRINT"[158]----------------------------------------";
1750 IFFF=34THEN1790
1760 POKE19,32:PRINT"[155] ENTER FILENAME :";:GOSUB60500:FF$=B$:POKE19,.:PRINT
1770 IFFF$="$"THENGOSUB840:GOTO1680
1780 IFFF$=""THEN470
1790 B$="[155]SCRATCH SEQ FILE [150]"+CHR$(34)+FF$+CHR$(34)
1800 FF=0:PRINT""TAB(21-LEN(B$)/2)B$
1810 PRINTTAB(90)"[158]ARE YOU SURE?? (Y/N)"
1820 GETK$:IFK$<>"Y"ANDK$<>"N"THEN1820
1830 IFK$<>"Y"THENFF$="":GOTO1680
1840 B$=" SCRATCHING  "+FF$+" ":PRINTTAB(20-LEN(B$)/2)B$
1850 PRINT#15,"S0:"FF$
1860 INPUT#15,ER,ER$,T,B:IFK=2ORK=3THENRETURN
1870 G9$=LEFT$(ER$,4)+RIGHT$(ER$,10)
1880 E9$=" "+FF$+" [146] "+G9$
1890 IFT=.THENPRINTTAB(48)"**** FILE NOT FOUND ****":GOSUB1270:GOTO1680
1900 IFT=.THENFORI=1TO1500:NEXT:GOTO1680
1910 PRINTTAB(60-LEN(E9$)/2)E9$
1920 GOSUB1020:FORI=1TO1000:NEXT:GOTO470
1930 FORX=20TO23:POKE781,X:SYS59903:NEXT
1940 PRINT"":POKE214,20:PRINT:PRINTTAB(9)"OLD NAME = ";
1950 IFFF=34THENFF=0:PRINT""FF$;:PN$=FF$:POKE783,.:GOTO1980
1960 POKE19,32:INPUT"$[157]";PN$:POKE19,.:PRINT:IFPN$="4"THEN510
1970 IFPN$="$"THENFF$=PN$:POKE150,96:SYSSP:GOSUB840:POKE150,96:SYSGP:GOTO1940
1980 POKE214,21:PRINT
1990 PRINTTAB(9)"NEW NAME = ";
2000 POKE19,32:PRINT" ";:GOSUB60500:NN$=B$:POKE19,.:POKE781,21
2005 SYS 59903:POKE214,21:PRINT
2010 IFNN$="4"THEN510
2020 CN$ =" "+PN$+" [146] IS "+NN$+" [146]":IFLEN(CN$)<33THENCN$ = CN$+"      "
2030 PRINT "[158]"TAB(22-LEN(CN$)/2)CN$"[145][145]":PRINT#15,"R0:"+NN$+"="+PN$
2040 GOSUB1390:IFETHEN470:REMRWK
2050 GOSUB1020:GOTO470
2060 PRINT TAB(2)"[158]          ---WARNING!!!---          "
2070 PRINT"  ALL DATA ON THE DISK TO BE FORMATTED"
2080 PRINT"  WILL BE DESTROYED - OK TO CONTINUE?"
2090 POKE198,.:WAIT198,1:GETA$:POKE198,.:IFA$<>"Y"THEN510
2100 PRINT"[145][154]   OKAY - FORMATTING TAKES 90 SECONDS"
2110 PRINT#15,"N:ULTRA SEQ-FILES,RK":GOSUB1860:IFER<>0THENGOSUB1400
2120 GOTO510
2130 CLOSE4:OPEN4,4,7:GOSUB1330:IFQQTHEN470
2140 L=0:PRINT"[147][151]":POKE53280,11:POKE53281,11
2150 POKE53272,23:PRINT""TAB(3)"                                  "
2160 PRINTTAB(3)" << [210]EADING [198]ILE [201]NTO AN [193]RRAY >> "
2170 PRINTTAB(3)"                                  "
2180 POKE787,25:POKE2,15:SYSOC
2190 IFLTHENPRINT""TAB(43)"[155] << [210]EADING [198]ILE [201]NTO AN [193]RRAY >> "
2200 POKE214,23:PRINT
2210 PRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":IFLTHENL=0:GOTO2240
2220 OPEN2,8,2,FF$:GOSUB1390:IFETHEN460
2230 YY=1:POKECR-2,0:SYSCR
2240 FORK=1TO112:A$(K)="":NEXT:U=0
2250 ON-(PEEK(CR-3)<>0)GOTO2330:IFPEEK(CR-2)>80THENPOKE(CR-2),0
2260 FORX=0TOPEEK(CR-2):AA$=CHR$(PEEK(512+X))
2270 A$(YY)=A$(YY)+AA$:IFLEN(A$(YY))>40THENYY=YY+1
2280 NEXT:SYSSO:POKE214,19:PRINT:PRINTA$(YY):YY=YY+1:ON-(PEEK(600)=0)GOSUB1670:SYSWW
2290 IFPEEK(653)=1THENPOKE214,23:PRINT:PRINT"  [150][210][197][204][197][193][211][197][153] TO [195]ONTINUE [145]":U=1
2300 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO2440:GOTO2290
2310 IFUTHENPRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":U=0
2320 ON-(YY=112)GOTO2350:PRINT:GOTO2250
2330 FORX=0TOPEEK(CR-2)-1:AA$=CHR$(PEEK(512+X)):A$(YY)=A$(YY)+AA$:NEXT
2340 SYSSO:POKE214,19:PRINT:PRINTA$(YY):CLOSE2:SYS65511:OPEN4,4,7
2350 PRINT""TAB(44)"[155]      << [196]ATA TO [208]RINTER >>     "
2360 FORI=1TO5:PRINT#4:NEXT
2370 IFYY/2<>INT(YY/2)THENYY=YY+1
2380 I1=YY/2:FORII=1TOI1
2390 PRINT#4,A$(II);TAB(40-LEN(A$(II)));A$(II+I1)
2400 IFPEEK(653)=1THENPOKE214,23:PRINT:PRINT"  [150][210][197][204][197][193][211][197][153] TO [195]ONTINUE [145]":U=1
2410 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO2440:GOTO2400
2420 IFUTHENPRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":U=0
2430 NEXT:FORI=1TO5:PRINT#4:NEXT:IFYY>111THENYY=1::L=1:GOTO2190
2440 T=1:GOSUB1230:CLOSE2:SYSCC:PRINT"[147]":POKE53280,.:POKE53281,.:SYS65511
2450 OPEN15,8,15:BOB=0:GOTO470
2460 POKE2025,7:RUN
2470 FORD=1TO1200:NEXT:RETURN
2480 S=1-S:GOSUB2540
2490 PRINT"[158] SOUND":IFSTHENPRINT"  ON "
2500 IFS=0THENPRINT"  OFF"
2510 PRINT""TAB(33)"[145][145]ASCII":IFATHENPRINT""TAB(34)"[145]ON "
2520 ON-(A=1)GOTO710:PRINT""TAB(34)"[145]OFF":GOTO710
2530 RETURN
2540 ON-(NS=1)GOTO2530:FORI=54272TOI+23:POKEI,.:NEXT
2550 SI=54272:POKESI+1,106:POKESI+5,12:POKESI+6,15
2560 POKESI+24,15:POKESI+15,30:POKESI+4,21:RETURN
2570 SYSEZ
2580 POKE214,23:PRINT:PRINTTAB(10)"[158] ANY KEY TO CONTINUE ";:WAIT198,1:POKE198,.
2590 GOTO460
60500 POKE198,.:B$="":PRINT"[164]";:FORA=1TO17
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THEN PRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60535 IFA$=CHR$(20)THEN60510
60540 IF(A=17)OR((NU)AND(A=6))THEN60510
60545 IFA$>="0"ANDA$=<"9"THEN 60560
60546 IF NU=1THEN 60510
60547 IFA$=>"[193]"ANDA$<="[218]"THEN 60560
60550 IFA$<" "ORA$>"Z"THEN60510
60560 PRINT"[157]";A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT